home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 17.asm < prev    next >
Assembly Source File  |  2000-04-02  |  298b  |  20 lines
  1. * 17.asm   macro's with parameters      version 0.00   1.9.97
  2.  
  3. * let \3 = \1 * \2
  4. multi: macro
  5.  move.l d0,-(a7)
  6.  move.l \1,d0
  7.  mulu \2,d0
  8.  move.l d0,\3
  9.  move.l (a7)+,d0
  10.  endm
  11.  
  12. * do some multiplications
  13. Program:
  14.  moveq #16,d0
  15.  multi d0,#16,d1
  16.  multi d1,#16,d2
  17.  multi d2,#16,d3
  18.  multi d3,#16,d4
  19.  rts
  20.